home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
6
/
c_wndw.zip
/
WARBLE1.C
< prev
next >
Wrap
Text File
|
1989-05-25
|
553b
|
25 lines
/* (c) Marietta Systems, Inc. 1987
* All rights reserved
*
* demonstration program for functions warble and idleloop
*/
#include "mtest.h"
void main(){
int a, x = 1;
char text[30];
clr_scrn("Warble test");
/*
* set an descending range of tones
*/
for (a = 100 ; a <= 4000 ; a += 100) {
warble(a);
sprintf(text,"The tone is %d",a);
display(text, x++, x, high);
idleloop(9); /* about half a second */
}
disp_msg("Press any key to switch off the speaker",1);
read_kb();
warble(0);
goodbye(0);
}